﻿Imports System.IO

Public Class FrmQuanLyKho
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        hidephanhe()
    End Sub
    Private Sub dangnhap_Click(sender As Object, e As EventArgs)
        Dim f As New FrmDangNhap()
        f.MdiParent = Me
        f.Show()
    End Sub
    Private Sub hidephanhe()
        Me.RibbonBar12.Show()
        Me.RibbonBar15.Show()
        Me.RibbonBar18.Show()
        Me.RibbonBar21.Show()
        Me.RibbonBar24.Show()
        Me.RibbonBar27.Show()
        Me.RibbonBar30.Show()
        Me.menuchinhly.Enabled = False '2
        Me.menucapgiay.Enabled = False '3
        Me.Menubiendong.Enabled = False '4
        Me.MenuBanDodiachinh.Enabled = False '5
        Me.MenuSoBoDiaChinh.Enabled = False '6
        Me.MenuHosodichvu.Enabled = False ' 7
        Me.MenuThongKe.Enabled = False '8
        Me.ButtonItemTongHop.Enabled = True
    End Sub
    Private Sub Nhapchinhly_Click(sender As Object, e As EventArgs)
        Dim f As FrmNhapThongTin = New FrmNhapThongTin()
        f.MdiParent = Me
        f.Show()
    End Sub
    Private Sub ButtonItem7_Click(sender As Object, e As EventArgs) Handles NhapThongBao.Click
        Dim f As FrmNhapThongTin = New FrmNhapThongTin()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ButtonItem4_Click(sender As Object, e As EventArgs) Handles DoiMatKhau.Click
        Dim f As FrmDoiMatKhau = New FrmDoiMatKhau()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub DangNhap_Click_1(sender As Object, e As EventArgs) Handles DangNhap.Click
        Dim f As New FrmDangNhap
        f.ShowDialog()
        If ModuleTenDangNhap.m_DangNhapThanhCong = True Then
            DangNhap.Enabled = True
        End If
        If ModuleTenDangNhap.m_DangNhapThanhCong = True Then
            hidephanhe()
            If ModuleTenDangNhap.phanquyen = "1" Then
                Me.menuchinhly.Enabled = True  '2
                Me.menucapgiay.Enabled = True  '3
                Me.Menubiendong.Enabled = True  '4
                Me.MenuBanDodiachinh.Enabled = True  '5
                Me.MenuSoBoDiaChinh.Enabled = True '6
                Me.MenuHosodichvu.Enabled = True  ' 7
                Me.MenuThongKe.Enabled = True  '8
                Me.ButtonItemTongHop.Enabled = True
            End If
            If ModuleTenDangNhap.phanquyen = "2" Then
                For Each item As String In ModuleTenDangNhap.tenphanhe
                    If item = "1" Then
                        Me.menuchinhly.Enabled = True  '2
                        Me.ButtonItemTongHop.Enabled = False
                    End If
                    If item = "2" Then
                        Me.menucapgiay.Enabled = True '3
                    End If
                    If item = "3" Then
                        Me.Menubiendong.Enabled = True '4
                    End If
                    If item = "4" Then
                        Me.MenuBanDodiachinh.Enabled = True '5
                    End If
                    If item = "5" Then
                        Me.MenuSoBoDiaChinh.Enabled = True '6
                    End If
                    If item = "6" Then
                        Me.MenuHosodichvu.Enabled = True ' 7
                    End If
                    If item = "7" Then
                        Me.MenuThongKe.Enabled = True '8
                    End If
                Next
            End If
            If ModuleTenDangNhap.phanquyen = "3" Then

                For Each item As String In ModuleTenDangNhap.tenphanhe
                    If item = "1" Then
                        Me.menuchinhly.Enabled = True  '2
                        Me.ButtonItemTongHop.Enabled = True
                        Me.RibbonBar12.Hide()
                    End If
                    If item = "2" Then
                        Me.menucapgiay.Enabled = True '3
                        Me.RibbonBar15.Hide()
                    End If
                    If item = "3" Then
                        Me.Menubiendong.Enabled = True '4
                        Me.RibbonBar18.Hide()
                    End If
                    If item = "4" Then
                        Me.MenuBanDodiachinh.Enabled = True '5
                        Me.RibbonBar21.Hide()
                    End If
                    If item = "5" Then
                        Me.MenuSoBoDiaChinh.Enabled = True '6
                        Me.RibbonBar24.Hide()
                    End If
                    If item = "6" Then
                        Me.MenuHosodichvu.Enabled = True ' 7
                        Me.RibbonBar27.Hide()
                    End If
                    If item = "7" Then
                        Me.MenuThongKe.Enabled = True '8
                        Me.RibbonBar30.Hide()
                    End If
                Next
            End If
        End If
    End Sub

    Private Sub SuaThongBao_Click(sender As Object, e As EventArgs) Handles SuaThongBao.Click
        Dim f As FrmSuaThongTin = New FrmSuaThongTin()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub LuuKhoThongBao_Click(sender As Object, e As EventArgs) Handles LuuKhoThongBao.Click
        Dim f As FrmCapNhatLuuKho = New FrmCapNhatLuuKho()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimTenchuThongBao_Click(sender As Object, e As EventArgs) Handles TimTenchuThongBao.Click
        Dim f As FrmTimKiemTenChu = New FrmTimKiemTenChu()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimtheoXaThongBao_Click(sender As Object, e As EventArgs) Handles TimtheoXaThongBao.Click
        Dim f As FrmTimDonViHanhChinh = New FrmTimDonViHanhChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimTheoBanDoThongBao_Click(sender As Object, e As EventArgs) Handles TimTheoBanDoThongBao.Click
        Dim f As FrmTimKiemThuaDat = New FrmTimKiemThuaDat()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimThoiGianThongBao_Click(sender As Object, e As EventArgs) Handles TimThoiGianThongBao.Click
        Dim f As FrmTimKiemNgayBienDong = New FrmTimKiemNgayBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimTheoLoaiBienDongThongBao_Click(sender As Object, e As EventArgs) Handles TimTheoLoaiBienDongThongBao.Click
        Dim f As FrmTimKiemLoaiBienDong = New FrmTimKiemLoaiBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub CaNhanThongBao_Click(sender As Object, e As EventArgs) Handles CaNhanThongBao.Click
        Dim f As FrmThongKeCaNhan = New FrmThongKeCaNhan()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ThoiGIanNhapThongBao_Click(sender As Object, e As EventArgs) Handles ThoiGIanNhapThongBao.Click
        Dim f As FrmSoBDNgayNhap = New FrmSoBDNgayNhap()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BiendongXa_Click(sender As Object, e As EventArgs) Handles BiendongXa.Click
        Dim f As FrmSoTheoDoiBienDong = New FrmSoTheoDoiBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BienDongHuyen_Click(sender As Object, e As EventArgs) Handles BienDongHuyen.Click
        Dim f As FrmSoBDCapHuyen = New FrmSoBDCapHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BienDongTinh_Click(sender As Object, e As EventArgs) Handles BienDongTinh.Click
        Dim f As FrmBaoCaoToanTinh = New FrmBaoCaoToanTinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub HetHanLuuKho_Click(sender As Object, e As EventArgs) Handles HetHanLuuKho.Click
        Dim f As FrmSoBDHetHan = New FrmSoBDHetHan()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub NhapCapGiay_Click(sender As Object, e As EventArgs) Handles NhapCapGiay.Click
        Dim f As FrmNhapHoSoCapGiay = New FrmNhapHoSoCapGiay()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub SuaCapGiay_Click(sender As Object, e As EventArgs) Handles SuaCapGiay.Click
        Dim f As FrmSuaHoSoCapGiay = New FrmSuaHoSoCapGiay()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub CungCapTTCapGiay_Click(sender As Object, e As EventArgs) Handles CungCapTTCapGiay.Click
        Dim f As FrmCCTTHoSoCapGiay = New FrmCCTTHoSoCapGiay()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub HoanTraTTCapGiay_Click(sender As Object, e As EventArgs) Handles HoanTraTTCapGiay.Click
        Dim f As FrmTraHoSoCapGiay = New FrmTraHoSoCapGiay()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimTenChuCapGiay_Click(sender As Object, e As EventArgs) Handles TimTenChuCapGiay.Click
        Dim f As FrmTimTenChuHoSoCapGiay = New FrmTimTenChuHoSoCapGiay()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimthuaCapGiay_Click(sender As Object, e As EventArgs) Handles TimthuaCapGiay.Click
        Dim f As FrmTimThuaHoSoCapGiay = New FrmTimThuaHoSoCapGiay()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimDonViXaCapGiay_Click(sender As Object, e As EventArgs) Handles TimDonViXaCapGiay.Click
        Dim f As FrmTimvitriHoSoCapGiay = New FrmTimvitriHoSoCapGiay()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BaocaoxaCapGiay_Click(sender As Object, e As EventArgs) Handles BaocaoxaCapGiay.Click
        Dim f As FrmBaoCaocapgiayXa = New FrmBaoCaocapgiayXa()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BaocaoHuyenCapGiay_Click(sender As Object, e As EventArgs) Handles BaocaoHuyenCapGiay.Click
        Dim f As FrmBaoCaoCapGiayHuyen = New FrmBaoCaoCapGiayHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BaoCaoTinhCapGiay_Click(sender As Object, e As EventArgs) Handles BaoCaoTinhCapGiay.Click
        Dim f As FrmBaoCaoCapGiayToanTinh = New FrmBaoCaoCapGiayToanTinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub KhaiThacHosoCapGiay_Click(sender As Object, e As EventArgs) Handles KhaiThacHosoCapGiay.Click
        Dim f As FrmHoSocapgiayDangMuon = New FrmHoSocapgiayDangMuon()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub NhapBienDong_Click(sender As Object, e As EventArgs) Handles NhapBienDong.Click
        Dim f As FrmNhapHoSoBienDong = New FrmNhapHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub SuaBienDong_Click(sender As Object, e As EventArgs) Handles SuaBienDong.Click
        Dim f As FrmSuaHoSoBienDong = New FrmSuaHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub CungcapBienDong_Click(sender As Object, e As EventArgs) Handles CungcapBienDong.Click
        Dim f As FrmCCTTHoSoBienDong = New FrmCCTTHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub HoanTraHSBienDong_Click(sender As Object, e As EventArgs) Handles HoanTraHSBienDong.Click
        Dim f As FrmTraHoSoBienDong = New FrmTraHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TìmTenchubiendong_Click(sender As Object, e As EventArgs) Handles TìmTenchubiendong.Click
        Dim f As FrmTimKiemTenChuHoSoBienDong = New FrmTimKiemTenChuHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimThuaBienDong_Click(sender As Object, e As EventArgs) Handles TimThuaBienDong.Click
        Dim f As FrmTimKiemThuaHoSoBienDong = New FrmTimKiemThuaHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub DonVixaBiendong_Click(sender As Object, e As EventArgs) Handles DonVixaBiendong.Click
        Dim f As FrmTimKiemViTriHoSoBienDong = New FrmTimKiemViTriHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BienDongLoaiBiendong_Click(sender As Object, e As EventArgs) Handles BienDongLoaiBiendong.Click
        Dim f As FrmTimLoaiBienDongHoSoBienDong = New FrmTimLoaiBienDongHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BaocaoxaBiendong_Click(sender As Object, e As EventArgs) Handles BaocaoxaBiendong.Click
        Dim f As FrmBaoCaoHoSoBienDongXa = New FrmBaoCaoHoSoBienDongXa()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BaocaoHuyenBiendong_Click(sender As Object, e As EventArgs) Handles BaocaoHuyenBiendong.Click
        Dim f As FrmBaoCaoHoSoBienDongHuyen = New FrmBaoCaoHoSoBienDongHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BaoCaoTinhBiendong_Click(sender As Object, e As EventArgs) Handles BaoCaoTinhBiendong.Click
        Dim f As FrmBaoCaoHoSoBienDongToanTinh = New FrmBaoCaoHoSoBienDongToanTinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub khaiThacbiendong_Click(sender As Object, e As EventArgs) Handles khaiThacbiendong.Click
        Dim f As FrmHoSoBienDongDangMuon = New FrmHoSoBienDongDangMuon()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BDloaibiendongtinh_Click(sender As Object, e As EventArgs) Handles BDloaibiendongtinh.Click
        Dim f As FrmbaocaoLoaiBiendongTinh = New FrmbaocaoLoaiBiendongTinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BDLoaibiendonghuyen_Click(sender As Object, e As EventArgs) Handles BDLoaibiendonghuyen.Click
        Dim f As FrmBaocaoLoaiBiendongHuyen = New FrmBaocaoLoaiBiendongHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BDLoaiBiendongxa_Click(sender As Object, e As EventArgs) Handles BDLoaiBiendongxa.Click
        Dim f As FrmBaocaoLoaiBiendongXa = New FrmBaocaoLoaiBiendongXa()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub NhapBando_Click(sender As Object, e As EventArgs) Handles NhapBando.Click
        Dim f As FrmNhapBanDo = New FrmNhapBanDo()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub SuaBanDo_Click(sender As Object, e As EventArgs) Handles SuaBanDo.Click
        Dim f As FrmCapNhatBanDo = New FrmCapNhatBanDo()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub cungcapbando_Click(sender As Object, e As EventArgs) Handles cungcapbando.Click
        Dim f As FrmlapPhieuMuonBanDoDiaChinh = New FrmlapPhieuMuonBanDoDiaChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub HoanTrabando_Click(sender As Object, e As EventArgs) Handles HoanTrabando.Click
        Dim f As FrmLapPhieuTraBanDoDiaChinh = New FrmLapPhieuTraBanDoDiaChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Tìmbandodiadanh_Click(sender As Object, e As EventArgs) Handles Tìmbandodiadanh.Click
        Dim f As FrmTimKiemBanDoDiaChinh = New FrmTimKiemBanDoDiaChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TimBandotheoxa_Click(sender As Object, e As EventArgs) Handles TimBandotheoxa.Click
        Dim f As FrmThongKeBanDoTheoCapXa = New FrmThongKeBanDoTheoCapXa()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Timbandotheohuyen_Click(sender As Object, e As EventArgs) Handles Timbandotheohuyen.Click
        Dim f As FrmThongKeBanDoCapHuyen = New FrmThongKeBanDoCapHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Timbandocatinh_Click(sender As Object, e As EventArgs) Handles Timbandocatinh.Click
        Dim f As FrmThongKeBanDoCapTinh = New FrmThongKeBanDoCapTinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BCbandotylexa_Click(sender As Object, e As EventArgs) Handles BCbandotylexa.Click
        Dim f As FrmThongKeBanDoTheoTyleCapXa = New FrmThongKeBanDoTheoTyleCapXa()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BCTyleHuyen_Click(sender As Object, e As EventArgs) Handles BCTyleHuyen.Click
        Dim f As FrmThongKeBanDoTheoTyLeCapHuyen = New FrmThongKeBanDoTheoTyLeCapHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub BCTyleCatinh_Click(sender As Object, e As EventArgs) Handles BCTyleCatinh.Click
        Dim f As FrmThongKeBanDoTheoTyLeCapTinh = New FrmThongKeBanDoTheoTyLeCapTinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Khaithacbando_Click(sender As Object, e As EventArgs) Handles Khaithacbando.Click
        Dim f As FrmBaoCaoBandoDiaChinhdamuon = New FrmBaoCaoBandoDiaChinhdamuon()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Nhapsobo_Click(sender As Object, e As EventArgs) Handles Nhapsobo.Click
        Dim f As FrmNhapSoBoDiaChinh = New FrmNhapSoBoDiaChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Suasobo_Click(sender As Object, e As EventArgs) Handles Suasobo.Click
        Dim f As FrmCapNhatSoBoDiaChinh = New FrmCapNhatSoBoDiaChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub cungcapsobo_Click(sender As Object, e As EventArgs) Handles cungcapsobo.Click
        Dim f As FrmLapPhieuMuonSoBoDiaChinh = New FrmLapPhieuMuonSoBoDiaChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub hoantrasobo_Click(sender As Object, e As EventArgs) Handles hoantrasobo.Click
        Dim f As FrmLapPhieuTraSoBoDiaChinh = New FrmLapPhieuTraSoBoDiaChinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub baocaosocapxa_Click(sender As Object, e As EventArgs) Handles baocaosocapxa.Click
        Dim f As FrmTimKiemVaBaoCaoSoBoDiaChinhXa = New FrmTimKiemVaBaoCaoSoBoDiaChinhXa()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub baocaosocaphuyen_Click(sender As Object, e As EventArgs) Handles baocaosocaphuyen.Click
        Dim f As FrmTimKiemvaBaoCaoSoBoDiaChinhCapHuyen = New FrmTimKiemvaBaoCaoSoBoDiaChinhCapHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub baocaosocaptinh_Click(sender As Object, e As EventArgs) Handles baocaosocaptinh.Click
        Dim f As FrmTimKiemvaBaoCaoBoDiaChinhCapTinh = New FrmTimKiemvaBaoCaoBoDiaChinhCapTinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub khaithacsobo_Click(sender As Object, e As EventArgs) Handles khaithacsobo.Click
        Dim f As FrmBaoCaoSoBoDiaChinhKhaiThac = New FrmBaoCaoSoBoDiaChinhKhaiThac()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub suadichvu_Click(sender As Object, e As EventArgs) Handles suadichvu.Click
        Dim f As FrmSuaHoSoDichVu = New FrmSuaHoSoDichVu()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Nhapdichvu_Click(sender As Object, e As EventArgs) Handles Nhapdichvu.Click
        Dim f As FrmNhapHoSoDichVu = New FrmNhapHoSoDichVu()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Cungcapdichvu_Click(sender As Object, e As EventArgs) Handles Cungcapdichvu.Click
        Dim f As FrmMuonHoSoDichVu = New FrmMuonHoSoDichVu()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub HoanTradichvu_Click(sender As Object, e As EventArgs) Handles HoanTradichvu.Click
        Dim f As FrmTraHoSoDichVu = New FrmTraHoSoDichVu()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub timdichvucapxa_Click(sender As Object, e As EventArgs) Handles timdichvucapxa.Click
        Dim f As FrmTimThongTinTheoXa = New FrmTimThongTinTheoXa()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub timdichvucaphuyen_Click(sender As Object, e As EventArgs) Handles timdichvucaphuyen.Click
        Dim f As FrmTimThongTinTheoHuyen = New FrmTimThongTinTheoHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub timdichvucaptinh_Click(sender As Object, e As EventArgs) Handles timdichvucaptinh.Click
        Dim f As FrmTimThongTinTheoCongTrinh = New FrmTimThongTinTheoCongTrinh()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub khaithacHSdichvu_Click(sender As Object, e As EventArgs) Handles khaithacHSdichvu.Click
        Dim f As FrmBaoCaoHoSoDaMuon = New FrmBaoCaoHoSoDaMuon()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub HSdangkhaithac_Click(sender As Object, e As EventArgs) Handles HSdangkhaithac.Click
        Dim f As FrmBaoCaoHoSoDangMuon = New FrmBaoCaoHoSoDangMuon()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Lichsuthongtin_Click(sender As Object, e As EventArgs) Handles Lichsuthongtin.Click
        Dim f As FrmLichSuMuonTraHSDV = New FrmLichSuMuonTraHSDV()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub Nhapkiemke_Click(sender As Object, e As EventArgs) Handles Nhapkiemke.Click
        Dim f As FrmNhapKiemke = New FrmNhapKiemke()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub suakiemke_Click(sender As Object, e As EventArgs) Handles suakiemke.Click
        Dim f As FrmCapNhatKiemke = New FrmCapNhatKiemke()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub cungcapkiemke_Click(sender As Object, e As EventArgs) Handles cungcapkiemke.Click
        Dim f As FrmCungcapKiemke = New FrmCungcapKiemke()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub hoantraHSkiemke_Click(sender As Object, e As EventArgs) Handles hoantraHSkiemke.Click
        Dim f As FrmHoanTraKiemke = New FrmHoanTraKiemke()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub khaithackiemke_Click(sender As Object, e As EventArgs) Handles khaithackiemke.Click
        Dim f As FrmKhaiThacKiemke = New FrmKhaiThacKiemke()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub timkiemke_Click(sender As Object, e As EventArgs) Handles timkiemke.Click
        Dim f As FrmTimkiemKiemke = New FrmTimkiemKiemke()
        f.MdiParent = Me
        f.Show()
    End Sub
    Private Sub Phienban_Click(sender As Object, e As EventArgs) Handles Phienban.Click
        Dim f As AboutBD = New AboutBD()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub MenuHuongdan_Click(sender As Object, e As EventArgs) Handles MenuHuongdan.Click

    End Sub

    Private Sub Huongdan_Click(sender As Object, e As EventArgs) Handles Huongdan.Click
        ''-------------
        Dim HelpProvider As New HelpProvider
        HelpProvider.HelpNamespace = Application.StartupPath & "\Template\HUONG DAN.chm "
        Help.ShowHelp(Me, HelpProvider.HelpNamespace)

    End Sub

    Private Sub menucapgiay_Click(sender As Object, e As EventArgs) Handles menucapgiay.Click

    End Sub

    Private Sub FrmQuanLyKho_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Application.Exit()
    End Sub

    Private Sub ButtonItem1_Click(sender As Object, e As EventArgs) Handles ButtonItemTongHop.Click
        Dim f As FrmTonghop = New FrmTonghop()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ButtonItem2_Click(sender As Object, e As EventArgs) Handles ButtonItem2.Click
        Dim f As FrmMucLucHoSo = New FrmMucLucHoSo()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ButtonItem3_Click(sender As Object, e As EventArgs) Handles ButtonItem3.Click
        Dim f As FrmTonghopLoaiBD = New FrmTonghopLoaiBD()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ButtonItem4_Click_1(sender As Object, e As EventArgs) Handles ButtonItem4.Click
        Dim f As FrmTonghopTheoHuyen = New FrmTonghopTheoHuyen()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ButtonItem5_Click(sender As Object, e As EventArgs) Handles ButtonItem5.Click
        Dim f As FrmMucLucHoSoBienDong = New FrmMucLucHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub
    Private Sub ButtonItemNhap_Click(sender As Object, e As EventArgs) Handles ButtonItemNhap.Click
        Dim f As FrmNhanhoso = New FrmNhanhoso()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub menuhethong_Click(sender As Object, e As EventArgs) Handles menuhethong.Click

    End Sub

    Private Sub btnXemMucLuc_Click(sender As Object, e As EventArgs) Handles ButtonItem1.Click
        Dim f As FrmXemMucLucHoSoBienDong = New FrmXemMucLucHoSoBienDong()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub btnXemMucLucCG_Click(sender As Object, e As EventArgs) Handles btnXemMucLucCG.Click
        Dim f As FrmXemMucLucHoSo = New FrmXemMucLucHoSo()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub btnXemMucLuc_Click_1(sender As Object, e As EventArgs)

    End Sub

    Private Sub ButtonItem5_Click_1(sender As Object, e As EventArgs)

    End Sub

    Private Sub ButtonItem6_Click(sender As Object, e As EventArgs) Handles ButtonItem6.Click
        Dim f As Form1 = New Form1()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ButtonItem7_Click_1(sender As Object, e As EventArgs) Handles ButtonItem7.Click
        Dim f As Form2 = New Form2()
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ButtonItem8_Click(sender As Object, e As EventArgs) Handles ButtonItem8.Click
        Dim f As FrmCapNhatHoSoScan = New FrmCapNhatHoSoScan()
        f.MdiParent = Me
        f.Show()
    End Sub
End Class
